

clear 
set more off

** Set directory
cd "C:\Elias\1 Serious\Academia\publicaciones\1 WorkingPapers\MoralEconPartis\Data"   // here you should include your own directory



*****************************************************************
* ES_2000_2003
*****************************************************************
{
*Calling the data 2000-2005
 import spss using  "BASEDATOS_SALVADOR_27.sav", clear
 
*****************************************************************
* Recoding Variables
***************************************************************** 
{

gen wave = 1 
 drop legis 
gen legis = 2003
* Ideology 
gen ID1 = p67 // 1 left 
replace ID1=. if  p67>11
* Ideology Party
gen ID2=p68 // 1 left 
replace ID2=. if  p68>11

*--------------------------
* Party
*--------------------------
gen party = "."
replace party = "ES_ARENA" if partido ==1 
replace party = "ES_FMLN" if partido ==2
replace party = "ES_PCN" if partido ==3
replace party = "ES_Otros" if partido ==5

drop partido 

gen partido=party

// Attendance to church
gen church_attend=p70 
replace church_attend=. if  p70>8

gen regular=1 if p70==3 | p70==4 // mes o todos los domings
replace regular=0 if p70==1 | p70==2 // casi nunca y varias al ano
replace regular=. if p70>8  

*--------------------------
* Abortion
*--------------------------
gen val_abortion = . 
replace val_abortion =2 if p74==5
replace val_abortion =4 if p74==4
 replace val_abortion =6 if p74==3
replace val_abortion =8 if p74==2
replace val_abortion =10 if p74==1

lab define VAL21 ///
	2 "Totally against" ///
	10 "Totally agree"
lab val val_abortion VAL21

*--------------------------
* Religious
*--------------------------
* Religious label  Are you a  believer?
* Religious
gen religious =. 
replace religious = 1 if p69==1 | p69==2 
replace religious = 0 if p69==4 | p69==5 

lab define bel ///
	0 "Nonbeliever" ///
	1 "Believer"
lab val religious bel

*--------------------------
* Education
*--------------------------
gen education=p76 if p76<7


lab define uni312 ///
	1 "No education" ///
	6 "Graduate studies"
lab val education uni312
*--------------------------
* Gender
*--------------------------
gen female=1 if p71==2
replace female=0 if p71==1

* Sex label
lab define UNION ///
	0 "Men" ///
	1 "Women"
lab val female UNION

*--------------------------
* Age
*--------------------------
gen age=p72 if p72<100




*-----------------------
* Economy regulada
*-----------------------
gen eco_regulated = p34a*2 if p34a<88
lab define EMI_22 ///
	2 "State" ///
	10 "Market"
lab val eco_regulated EMI_22

*-----------------------
* Free education university
*-----------------------
gen eco_education_u=. 
replace eco_education_u = round(1*7/4) if p3507==4
replace eco_education_u = round(2*7/4) if p3507==3
replace eco_education_u = round(3*7/4) if p3507==2
replace eco_education_u = round(4*7/4) if p3507==1
replace eco_education_u = . if p3507>7

lab define eco_education_u2 ///
	2 "Against" ///
	7 "In Favor"
lab val eco_education_u eco_education_u2

*-----------------------
* Price control
*-----------------------
gen eco_prices=. 
replace eco_prices = round(1) if p3501==4
replace eco_prices = round(2) if p3501==3
replace eco_prices = round(3) if p3501==2
replace eco_prices = round(4) if p3501==1
replace eco_prices = . if p3501>7

lab define eco_prices ///
	1 "Against" ///
	4 "In Favor"
lab val eco_prices eco_prices

*-----------------------
* Free education primary
*-----------------------
gen eco_education_p=. 
replace eco_education_p = round(1) if p3502==4
replace eco_education_p = round(2) if p3502==3
replace eco_education_p = round(3) if p3502==2
replace eco_education_p = round(4) if p3502==1
lab val eco_education_p eco_prices
replace eco_education_p = . if p3502>7

*-----------------------
* Free education secondary
*-----------------------
gen eco_education_s=. 
replace eco_education_s = round(1) if p3505==4
replace eco_education_s = round(2) if p3505==3
replace eco_education_s = round(3) if p3505==2
replace eco_education_s = round(4) if p3505==1
lab val eco_education_s eco_prices
replace eco_education_s = . if p3505>7

*-----------------------
* Subside to housing
*-----------------------
gen eco_housing=. 
replace eco_housing = round(1) if p3503==4
replace eco_housing = round(2) if p3503==3
replace eco_housing = round(3) if p3503==2
replace eco_housing = round(4) if p3503==1
lab val eco_housing eco_prices
replace eco_housing = . if p3503>7

*-----------------------
* Employment
*-----------------------
gen eco_employment=. 
replace eco_employment = round(1*7/4) if p3504==4
replace eco_employment = round(2*7/4) if p3504==3
replace eco_employment = round(3*7/4) if p3504==2
replace eco_employment = round(4*7/4) if p3504==1

lab val eco_employment eco_education_u2
replace eco_employment = . if p3504>7

*-----------------------
* Unemployment
*-----------------------
gen eco_unemployment=. 
replace eco_unemployment = round(1) if p3508==4
replace eco_unemployment = round(2) if p3508==3
replace eco_unemployment = round(3) if p3508==2
replace eco_unemployment = round(4) if p3508==1

lab val eco_unemployment eco_prices
replace eco_unemployment = . if p3508>7

*-----------------------
* Pensions
*-----------------------
gen eco_pensions=. 
replace eco_pensions = round(1*7/4) if p3506==4
replace eco_pensions = round(2*7/4) if p3506==3
replace eco_pensions = round(3*7/4) if p3506==2
replace eco_pensions = round(4*7/4) if p3506==1

lab val eco_pensions eco_education_u2
replace eco_pensions = . if p3506>7

*-----------------------
* Environment
*-----------------------
gen eco_environment=. 
replace eco_environment = round(1) if p3508==4
replace eco_environment = round(2) if p3508==3
replace eco_environment = round(3) if p3508==2
replace eco_environment = round(4) if p3508==1

lab val eco_environment eco_prices
replace eco_environment = . if p3508>7

*-----------------------
* Basic necessity
*-----------------------
gen eco_necessity =. 
replace eco_necessity  = round(1) if p3510==4
replace eco_necessity  = round(2) if p3510==3
replace eco_necessity  = round(3) if p3510==2
replace eco_necessity  = round(4) if p3510==1

lab val eco_necessity  eco_prices

replace eco_necessity = . if p3510>7

*-----------------------
* Tax
*-----------------------
gen eco_tax = p40 if p40<6
lab define taxes ///
	1 "Direct" ///
	2 "Indirect" ///
	3 "No more taxes"
lab val eco_tax taxes

*-----------------------
* Privatization
*-----------------------
gen eco_private = p42 if p42<6

lab define private ///
	1 "In favor" ///
	5 "Against"
lab val eco_private private
*-----------------------
* Religious values
*-----------------------
gen val_religious = p70b*2 if p70b<6
lab define secu ///
	1 "Christian" ///
	10 "Secular"
lab val val_religious secu

*-----------------------
* Divorce
*-----------------------
gen val_divorce = p73 if p73<6
replace val_divorce  = 2 if p73==5
replace val_divorce  = 4 if p73==4
replace val_divorce  = 6 if p73==3
replace val_divorce  = 8 if p73==2
replace val_divorce  = 10 if p73==1
lab define div ///
	1 "Against" ///
	10 "In Favor"
lab val val_religious secu
lab val val_divorce div

*--------------------------
* Religious Catholic
*--------------------------
gen rel_catholic=1 if p69a==3
replace rel_catholic=0 if religious==1 & rel_catholic~=1

*--------------------------
* Religious Other
*--------------------------
gen rel_other=1 if p69a~=3 & religious==1 &  p69a~=.
replace rel_other=0 if religious==1 & rel_catholic==1



}

// Labeling variables
{
lab var nestu "Study number"
lab var pais "Country name"
lab var partido "Party name (alphanumeric)"
lab var legis "Legislature"
lab var ID1 "Ideology"
lab var ID2 "Ideology of your party"
lab var church_attend "Attendance to the church (5-point scale, 5 is highest)"
lab var religious "Religious (dummy 1 if believer)"
//lab var rel_evangelical "Evangelical (dummy 1 if evangelical, 0 if religious but not evangelical)"
lab var rel_catholic "Catholics (dummy 1 if catholic, 0 if religious but not catholic)"
lab var rel_other "Religious Other (dummy 1 if other, 0 if religious but not other)"
lab var val_abortion "Opinion about abortion (1-10 scale, 10 is most in favor)"
//lab var val_ssm "Opinion about SSM (1-10 scale, 10 most in favor)"
//lab var val_drugs "Opinion about drug legalization (1-10 scale, 10 most in favor)"
//lab var val_imm "Immigrants compete for natives' jobs (1 disagree, 5 agree)"
lab var eco_regulated "Regulate Economy (1-10 scale, 10 agree)"
lab var education "Highest level of education (6-point scale, 1 no education, 6 graduate studies)"
lab var female "Female (dummy 1 if woman)"
lab var age "Age (years)"
lab var eco_prices "Price control (1-4, 4 in favor of state  intervention)"
lab var eco_education_p "Free primary education  (1-4, 4 in favor of state  intervention)"
lab var eco_education_s "Free secondary education"
//lab var eco_inequaltiy "Regulate Inequality between rich and poor (1-7, 7 in favor)"
lab var eco_education_u "Free university education (1-7, 7 in favor)"
lab var eco_housing "Subsidize housing (1-4, 4 in favor)"
lab var eco_employment "Employment creation (1-7, 7 in favor)"
lab var eco_unemployment "Unemployment insurance  (1-4, 4 in favor)"
lab var eco_pensions "Pension  (1-7, 7 in favor)"
lab var eco_environment "(1-4, 4 in favor)"
//lab var eco_health "Whether the state should provide health services  (1, 7 in favor). "
lab var eco_necessity "(1-4, 4 in favor)"
//lab var eco_wellbeing "Whether the state should guarantee basic wellbeing  (1, 7 in favor). "
//lab var eco_companies "Whether the state should own companies  (1, 5). "
//lab var eco_services "Whether the state should  control public services  (1, 5)."
lab var eco_private "Whether the state should privatize state industries  (1 in favor, 5 against). "
//lab var eco_natural ""
lab var eco_tax "Whether legislator prefers direct or indirect taxes (1=direct, 2=indirect, 3=no more tax)"
lab var val_religious "Degree of religiosity and secularity in public policies (1 Christian, 5 secular). "
lab var val_divorce "Opinion about divorce (1 against, 10 in favor). "

}
*****************************************************************
* Keep Variables
***************************************************************** 
{ 
	keep  wave eco_regulated education female age eco_prices eco_education_p eco_education_s  eco_education_u eco_housing eco_employment eco_unemployment eco_pensions eco_environment  eco_necessity    eco_private  eco_tax val_religious val_divorce nestu pais partido legis ID1 ID2 church_attend religious rel_catholic rel_other val_abortion
	

}

*****************************************************************
* Save
***************************************************************** 
save "ElSalvador_2000_2003.dta", replace


*****************************************************************
* ES 2003-2006
*****************************************************************
{
 import spss using  "BASEDATOS_SALVADOR_48.sav", clear
 
*****************************************************************
* Recoding Variables
***************************************************************** 
{

gen wave = 2
 drop legis 
gen legis = 2006
* Ideology 
gen ID1 = p58 //1 left
replace ID1=. if  p58>11
* Ideology Party
gen ID2=p59 // 1 left 
replace ID2=. if  p59>11

*--------------------------
* Party
*--------------------------
gen party = "."
replace party = "ES_ARENA" if partido == 1
replace party = "ES_FMLN" if partido == 2 
replace party = "ES_PCN" if partido == 3
replace party = "ES_CDU" if partido == 4
replace party = "ES_PDC" if partido == 5
drop partido 

gen partido=party

// Attendance to church, not in this wave
//gen church_attend=p70 
//replace church_attend=. if  p70>8

//gen regular=1 if p70==3 | p70==4 // mes o todos los domings
//replace regular=0 if p70==1 | p70==2 // casi nunca y varias al ano
//replace regular=. if p70>8  

*--------------------------
* Abortion
*--------------------------
gen val_abortion = . 
replace val_abortion =1 if p65==1
replace val_abortion =2 if p65==2
replace val_abortion =3 if p65==3
replace val_abortion =4 if p65==4
replace val_abortion =5 if p65==5
replace val_abortion =6 if p65==6
replace val_abortion =7 if p65==7
replace val_abortion =8 if p65==8
replace val_abortion =9 if p65==9
replace val_abortion =10 if p65==10
lab define VAL21 ///
	1 "Totally against" ///
	10 "Totally agree"
lab val val_abortion VAL21

*--------------------------
* Religious
*--------------------------
* Religious label  Are you a  believer?
* Religious
gen religious =. 
replace religious = 1 if p60==1 
replace religious = 0 if p60==2 

lab define bel ///
	0 "Nonbeliever" ///
	1 "Believer"
lab val religious bel


*--------------------------
* Religious Catholic
*--------------------------
gen rel_catholic=1 if p60a==1
replace rel_catholic=0 if religious==1 & rel_catholic~=1

*--------------------------
* Religious Evangelical
*--------------------------
gen rel_evangelical=1 if p60a==3
replace rel_evangelical=0 if religious==1 & rel_evangelical~=1

*--------------------------
* Religious Other
*--------------------------
gen rel_other=1 if p60a~=1 & religious==1 &  p60a~=.
replace rel_other=0 if religious==1 & rel_catholic==1

*--------------------------
* Education
*--------------------------
gen education=p67 if p67<7


lab define uni312 ///
	1 "No education" ///
	6 "Graduate studies"
lab val education uni312
*--------------------------
* Gender
*--------------------------
gen female=1 if p62==2
replace female=0 if p62==1

* Sex label
lab define UNION ///
	0 "Men" ///
	1 "Women"
lab val female UNION

*--------------------------
* Age
*--------------------------
gen age=p63 if p63<100




*-----------------------
* Economy regulada
*-----------------------
gen eco_regulated = p28*2 if p28<88
lab define EMI_22 ///
	2 "State" ///
	10 "Market"
lab val eco_regulated EMI_22

*-----------------------
* Free education university
*-----------------------
gen eco_education_u=. 
replace eco_education_u = round(1*7/4) if p2907==1
replace eco_education_u = round(2*7/4) if p2907==2
replace eco_education_u = round(3*7/4) if p2907==3
replace eco_education_u = round(4*7/4) if p2907==4
replace eco_education_u = . if p2907>7

lab define eco_education_u2 ///
	2 "Against" ///
	7 "In Favor"
lab val eco_education_u eco_education_u2

*-----------------------
* Price control
*-----------------------
gen eco_prices=. 
replace eco_prices = round(1) if p2901==1
replace eco_prices = round(2) if p2901==2
replace eco_prices = round(3) if p2901==3
replace eco_prices = round(4) if p2901==4
replace eco_prices = . if p2901>7

lab define eco_prices ///
	1 "Against" ///
	4 "In Favor"
lab val eco_prices eco_prices

*-----------------------
* Free education primary
*-----------------------
gen eco_education_p= round(p2902) if p2902<7

lab val eco_education_p eco_prices

*-----------------------
* Free education secondary
*-----------------------
gen eco_education_s= round(p2902) if p2902<7

lab val eco_education_s eco_prices

*-----------------------
* Subside to housing
*-----------------------
gen eco_housing= round(p2903) if p2903<7

lab val eco_housing eco_prices

*-----------------------
* Employment
*-----------------------
gen eco_employment= round(p2904*7/4) if p2904<7


lab val eco_employment eco_education_u2

*-----------------------
* Unemployment
*-----------------------
gen eco_unemployment= round(p2908) if p2908<7

lab val eco_unemployment eco_prices

*-----------------------
* Pensions
*-----------------------
gen eco_pensions= round(p2905*7/4) if p2905<7


lab val eco_pensions eco_education_u2

*-----------------------
* Environment
*-----------------------
gen eco_environment= round(p2909) if p2909<7

lab val eco_environment eco_prices

*-----------------------
* Basic necessity
*-----------------------
gen eco_necessity= round(p2910) if p2910<7

lab val eco_necessity  eco_prices


*-----------------------
* Tax
*-----------------------
gen eco_tax = p34 if p34<6
lab define taxes ///
	1 "Direct" ///
	2 "Indirect" ///
	3 "No more taxes"
lab val eco_tax taxes

*-----------------------
* Privatization
*-----------------------
gen eco_private = p35 if p35<6

lab define private ///
	1 "In favor" ///
	5 "Against"
lab val eco_private private
*-----------------------
* Religious values
*-----------------------
gen val_religious = p61 if p61<11
lab define secu ///
	1 "Christian" ///
	10 "Secular"
lab val val_religious secu


*-----------------------
* Divorce
*-----------------------
gen val_divorce = p64 if p64<11
lab define div ///
	1 "Against" ///
	10 "In favor"
lab val val_divorce div

}

// Labeling variables
{
lab var nestu "Study number"
lab var pais "Country name"
lab var partido "Party name (alphanumeric)"
lab var legis "Legislature"
lab var ID1 "Ideology"
lab var ID2 "Ideology of your party"
//lab var church_attend "Attendance to the church (5-point scale, 5 is highest)"
lab var religious "Religious (dummy 1 if believer)"
//lab var rel_evangelical "Evangelical (dummy 1 if evangelical, 0 if religious but not evangelical)"
lab var rel_catholic "Catholics (dummy 1 if catholic, 0 if religious but not catholic)"
lab var rel_other "Religious Other (dummy 1 if other, 0 if religious but not other)"
lab var val_abortion "Opinion about abortion (1-10 scale, 10 is most in favor)"
//lab var val_ssm "Opinion about SSM (1-10 scale, 10 most in favor)"
//lab var val_drugs "Opinion about drug legalization (1-10 scale, 10 most in favor)"
//lab var val_imm "Immigrants compete for natives' jobs (1 disagree, 5 agree)"
lab var eco_regulated "Regulate Economy (1-10 scale, 10 agree)"
lab var education "Highest level of education (6-point scale, 1 no education, 6 graduate studies)"
lab var female "Female (dummy 1 if woman)"
lab var age "Age (years)"
lab var eco_prices "Price control (1-4, 4 in favor of state  intervention)"
lab var eco_education_p "Free primary education  (1-4, 4 in favor of state  intervention)"
lab var eco_education_s "Free secondary education"
//lab var eco_inequaltiy "Regulate Inequality between rich and poor (1-7, 7 in favor)"
lab var eco_education_u "Free university education (1-7, 7 in favor)"
lab var eco_housing "Subsidize housing (1-4, 4 in favor)"
lab var eco_employment "Employment creation (1-7, 7 in favor)"
lab var eco_unemployment "Unemployment insurance  (1-4, 4 in favor)"
lab var eco_pensions "Pension  (1-7, 7 in favor)"
lab var eco_environment "(1-4, 4 in favor)"
//lab var eco_health "Whether the state should provide health services  (1, 7 in favor). "
lab var eco_necessity "(1-4, 4 in favor)"
//lab var eco_wellbeing "Whether the state should guarantee basic wellbeing  (1, 7 in favor). "
//lab var eco_companies "Whether the state should own companies  (1, 5). "
//lab var eco_services "Whether the state should  control public services  (1, 5)."
lab var eco_private "Whether the state should privatize state industries  (1 in favor, 5 against). "
//lab var eco_natural ""
lab var eco_tax "Whether legislator prefers direct or indirect taxes (1=direct, 2=indirect, 3=no more tax)"
lab var val_religious "Degree of religiosity and secularity in public policies (1 Christian, 5 secular). "
lab var val_divorce "Opinion about divorce (1 against, 10 in favor). "

}
*****************************************************************
* Keep Variables
***************************************************************** 
{ 
	keep  wave eco_regulated education female age eco_prices eco_education_p eco_education_s  eco_education_u eco_housing eco_employment eco_unemployment eco_pensions eco_environment  eco_necessity    eco_private  eco_tax val_religious val_divorce nestu pais partido legis ID1 ID2 religious rel_catholic rel_other val_abortion
	

}

*****************************************************************
* Save
***************************************************************** 
save "ElSalvador_2003_2006.dta", replace
}
*****************************************************************
* ES_2006_2009
*****************************************************************
{
*Calling the data 
 import spss using  "BASEDATOS_SALVADOR_58.sav", clear
 
*****************************************************************
* Recoding Variables
***************************************************************** 
{
gen wave=3
 drop legis 
gen legis = 2009
* Ideology 
gen ID1 = p64 // 1 left 
replace ID1=. if  p64>11
* Ideology Party
gen ID2=p65 // 1 left 
replace ID2=. if  p65>11

*--------------------------
* Party
*--------------------------
gen party = "."
replace party = "ES_ARENA" if partido ==1 
replace party = "ES_FMLN" if partido ==2
replace party = "ES_PCN" if partido ==3
replace party = "ES_CD" if partido ==4
replace party = "ES_PDC" if partido ==5

drop partido 

gen partido=party

// Attendance to church
//gen church_attend=p70 
//replace church_attend=. if  p70==9

*--------------------------
* Religious
*--------------------------
* Religious label  Are you a  believer?
* Religious
gen religious =. 
replace religious = 1 if p66==1 
replace religious = 0 if p66==2

lab define bel ///
	0 "Nonbeliever" ///
	1 "Believer"
lab val religious bel


*--------------------------
* Religious Catholic
*--------------------------
gen rel_catholic=1 if p66a==1
replace rel_catholic=0 if religious==1 & rel_catholic~=1

*--------------------------
* Religious Evangelical
*--------------------------
gen rel_evangelical=1 if p66a==3
replace rel_evangelical=0 if religious==1 & rel_evangelical~=1

*--------------------------
* Religious Other
*--------------------------
gen rel_other=1 if p66a~=1 & religious==1 &  p66a~=.
replace rel_other=0 if religious==1 & rel_catholic==1

*--------------------------
* Abortion
*--------------------------
gen val_abortion = p70 if p70<11

lab define VAL21 ///
	2 "Totally against" ///
	10 "Totally agree"
lab val val_abortion VAL21


*--------------------------
* Education
*--------------------------
gen education=p73 if p73<7


lab define uni312 ///
	1 "No education" ///
	6 "Graduate studies"
lab val education uni312
*--------------------------
* Gender
*--------------------------
gen female=1 if p67==2
replace female=0 if p67==1

* Sex label
lab define UNION ///
	0 "Men" ///
	1 "Women"
lab val female UNION

*--------------------------
* Age
*--------------------------
gen age=p68 if p68<100




*-----------------------
* Economy regulada
*-----------------------
gen eco_regulated = p28*2 if p28<7
lab define EMI_22 ///
	2 "State" ///
	10 "Market"
lab val eco_regulated EMI_22

*-----------------------
* Free education university
*-----------------------
gen eco_education_u= round(p2907*7/4) if p2907<7

lab define eco_education_u2 ///
	2 "Against" ///
	7 "In Favor"
lab val eco_education_u eco_education_u2

*-----------------------
* Price control
*-----------------------
gen eco_prices= round(p2901) if p2901<7

lab define eco_prices ///
	1 "Against" ///
	4 "In Favor"
lab val eco_prices eco_prices

*-----------------------
* Free education primary
*-----------------------
gen eco_education_p= round(p2902) if p2902<7

lab val eco_education_p eco_prices

*-----------------------
* Free education secondary
*-----------------------
gen eco_education_s= round(p2902) if p2902<7

lab val eco_education_s eco_prices

*-----------------------
* Subside to housing
*-----------------------
gen eco_housing= round(p2903) if p2903<7

lab val eco_housing eco_prices

*-----------------------
* Employment
*-----------------------
gen eco_employment= round(p2904*7/4) if p2904<7


lab val eco_employment eco_education_u2



*-----------------------
* Pensions
*-----------------------
gen eco_pensions= round(p2905*7/4) if p2905<7


lab val eco_pensions eco_education_u2


*-----------------------
* Tax
*-----------------------
gen eco_tax = p33 if p33<6
lab define taxes ///
	1 "Direct" ///
	2 "Indirect" ///
	3 "No more taxes"
lab val eco_tax taxes




*-----------------------
* Divorce
*-----------------------
gen val_divorce = p69 if p69<11
lab define div ///
	1 "Against" ///
	10 "In favor"
lab val val_divorce div





}

// Labeling variables
{
lab var nestu "Study number"
lab var Pais "Country name"
lab var partido "Party name (alphanumeric)"
lab var legis "Legislature"
lab var ID1 "Ideology"
lab var ID2 "Ideology of your party"
//lab var church_attend "Attendance to the church (5-point scale, 5 is highest)"
lab var religious "Religious (dummy 1 if believer)"
lab var rel_evangelical "Evangelical (dummy 1 if evangelical, 0 if religious but not evangelical)"
lab var rel_catholic "Catholics (dummy 1 if catholic, 0 if religious but not catholic)"
lab var rel_other "Religious Other (dummy 1 if other, 0 if religious but not other)"
lab var val_abortion "Opinion about abortion (1-10 scale, 10 is most in favor)"
//lab var val_ssm "Opinion about SSM (1-10 scale, 10 most in favor)"
//lab var val_drugs "Opinion about drug legalization (1-10 scale, 10 most in favor)"
//lab var val_imm "Immigrants compete for natives' jobs (1 disagree, 5 agree)"
lab var eco_regulated "Regulate Economy (1-10 scale, 10 agree)"
lab var education "Highest level of education (6-point scale, 1 no education, 6 graduate studies)"
lab var female "Female (dummy 1 if woman)"
lab var age "Age (years)"
lab var eco_prices "Price control (1-4, 4 in favor of state  intervention)"
lab var eco_education_p "Free primary education  (1-4, 4 in favor of state  intervention)"
lab var eco_education_s "Free secondary education"
//lab var eco_inequaltiy "Regulate Inequality between rich and poor (1-7, 7 in favor)"
lab var eco_education_u "Free university education (1-7, 7 in favor)"
lab var eco_housing "Subsidize housing (1-4, 4 in favor)"
lab var eco_employment "Employment creation (1-7, 7 in favor)"
//lab var eco_unemployment "Unemployment insurance  (1-4, 4 in favor)"
lab var eco_pensions "Pension  (1-7, 7 in favor)"
//lab var eco_environment "(1-4, 4 in favor)"
//lab var eco_health "Whether the state should provide health services  (1, 7 in favor). "
//lab var eco_necessity "(1-4, 4 in favor)"
//lab var eco_wellbeing "Whether the state should guarantee basic wellbeing  (1, 7 in favor). "
//lab var eco_companies "Whether the state should own companies  (1, 5). "
//lab var eco_services "Whether the state should  control public services  (1, 5)."
//lab var eco_private "Whether the state should privatize state industries  (1 in favor, 5 against). "
//lab var eco_natural ""
lab var eco_tax "Whether legislator prefers direct or indirect taxes (1=direct, 2=indirect, 3=no more tax)"
//lab var val_religious "Degree of religiosity and secularity in public policies (1 Christian, 5 secular). "
lab var val_divorce "Opinion about divorce (1 against, 10 in favor). "

}
*****************************************************************
* Keep Variables
***************************************************************** 
{ 
	keep  wave eco_regulated education female age eco_prices eco_education_p eco_education_s  eco_education_u eco_housing eco_employment eco_pensions eco_tax val_divorce nestu partido legis ID1 ID2  religious rel_catholic rel_other val_abortion rel_evangelical
	

}

*****************************************************************
* Save
***************************************************************** 
save "ElSalvador_2006_2009.dta", replace
}

*****************************************************************
* ES_2009_2011
*****************************************************************
{
*Calling the data 
 import spss using  "BASEDATOS_SALVADOR_70.sav", clear
 
*****************************************************************
* Recoding Variables
***************************************************************** 
{
gen wave=4
 drop legis 
gen legis = 2011
* Ideology 
gen ID1 = p64 // 1 left 
replace ID1=. if  p64>11
* Ideology Party
gen ID2=p65 // 1 left 
replace ID2=. if  p65>11

*--------------------------
* Party
*--------------------------
gen party = "."
replace party = "ES_ARENA" if partido ==1 
replace party = "ES_FMLN" if partido ==2
replace party = "ES_PCN" if partido ==3
replace party = "ES_CD" if partido ==4
replace party = "ES_PDC" if partido ==5

drop partido 

gen partido=party

// Attendance to church
//gen church_attend=p70 
//replace church_attend=. if  p70==9

*--------------------------
* Religious
*--------------------------
* Religious label  Are you a  believer?
* Religious
gen religious =. 
replace religious = 1 if p66==1 
replace religious = 0 if p66==2

lab define bel ///
	0 "Nonbeliever" ///
	1 "Believer"
lab val religious bel


*--------------------------
* Religious Catholic
*--------------------------
gen rel_catholic=1 if p66a==1
replace rel_catholic=0 if religious==1 & rel_catholic~=1

*--------------------------
* Religious Evangelical
*--------------------------
gen rel_evangelical=1 if p66a==3
replace rel_evangelical=0 if religious==1 & rel_evangelical~=1

*--------------------------
* Religious Other
*--------------------------
gen rel_other=1 if p66a~=1 & religious==1 &  p66a~=.
replace rel_other=0 if religious==1 & rel_catholic==1

*--------------------------
* Abortion
*--------------------------
gen val_abortion = p70 if p70<11

lab define VAL21 ///
	2 "Totally against" ///
	10 "Totally agree"
lab val val_abortion VAL21


*--------------------------
* Education
*--------------------------
gen education=p72 if p72<7


lab define uni312 ///
	1 "No education" ///
	6 "Graduate studies"
lab val education uni312
*--------------------------
* Gender
*--------------------------
gen female=1 if p67==2
replace female=0 if p67==1

* Sex label
lab define UNION ///
	0 "Men" ///
	1 "Women"
lab val female UNION

*--------------------------
* Age
*--------------------------
gen age=p68 if p68<100




*-----------------------
* Economy regulada
*-----------------------
gen eco_regulated = p29*2 if p29<7
lab define EMI_22 ///
	2 "State" ///
	10 "Market"
lab val eco_regulated EMI_22

*-----------------------
* Free education university
*-----------------------
gen eco_education_u= round(p3007*7/4) if p3007<7

lab define eco_education_u2 ///
	2 "Against" ///
	7 "In Favor"
lab val eco_education_u eco_education_u2

*-----------------------
* Price control
*-----------------------
gen eco_prices= round(p3001) if p3001<7

lab define eco_prices ///
	1 "Against" ///
	4 "In Favor"
lab val eco_prices eco_prices

*-----------------------
* Free education primary
*-----------------------
gen eco_education_p= round(p3002) if p3002<7

lab val eco_education_p eco_prices

*-----------------------
* Free education secondary
*-----------------------
gen eco_education_s= round(p3002) if p3002<7

lab val eco_education_s eco_prices

*-----------------------
* Subside to housing
*-----------------------
gen eco_housing= round(p3003) if p3003<7

lab val eco_housing eco_prices

*-----------------------
* Employment
*-----------------------
gen eco_employment= round(p3004*7/4) if p3004<7


lab val eco_employment eco_education_u2



*-----------------------
* Pensions
*-----------------------
gen eco_pensions= round(p3005*7/4) if p3005<7


lab val eco_pensions eco_education_u2


*-----------------------
* Tax
*-----------------------
gen eco_tax = p34 if p34<6
lab define taxes ///
	1 "Direct" ///
	2 "Indirect" ///
	3 "No more taxes"
lab val eco_tax taxes




*-----------------------
* Divorce
*-----------------------
*gen val_divorce = p69 if p69<11
*lab define div ///
*	1 "Against" ///
*	10 "In favor"
*l**ab val val_divorce div





}

// Labeling variables
{
lab var nestu "Study number"
lab var Pais "Country name"
lab var partido "Party name (alphanumeric)"
lab var legis "Legislature"
lab var ID1 "Ideology"
lab var ID2 "Ideology of your party"
//lab var church_attend "Attendance to the church (5-point scale, 5 is highest)"
lab var religious "Religious (dummy 1 if believer)"
lab var rel_evangelical "Evangelical (dummy 1 if evangelical, 0 if religious but not evangelical)"
lab var rel_catholic "Catholics (dummy 1 if catholic, 0 if religious but not catholic)"
lab var rel_other "Religious Other (dummy 1 if other, 0 if religious but not other)"
lab var val_abortion "Opinion about abortion (1-10 scale, 10 is most in favor)"
//lab var val_ssm "Opinion about SSM (1-10 scale, 10 most in favor)"
//lab var val_drugs "Opinion about drug legalization (1-10 scale, 10 most in favor)"
//lab var val_imm "Immigrants compete for natives' jobs (1 disagree, 5 agree)"
lab var eco_regulated "Regulate Economy (1-10 scale, 10 agree)"
lab var education "Highest level of education (6-point scale, 1 no education, 6 graduate studies)"
lab var female "Female (dummy 1 if woman)"
lab var age "Age (years)"
lab var eco_prices "Price control (1-4, 4 in favor of state  intervention)"
lab var eco_education_p "Free primary education  (1-4, 4 in favor of state  intervention)"
lab var eco_education_s "Free secondary education"
//lab var eco_inequaltiy "Regulate Inequality between rich and poor (1-7, 7 in favor)"
lab var eco_education_u "Free university education (1-7, 7 in favor)"
lab var eco_housing "Subsidize housing (1-4, 4 in favor)"
lab var eco_employment "Employment creation (1-7, 7 in favor)"
//lab var eco_unemployment "Unemployment insurance  (1-4, 4 in favor)"
lab var eco_pensions "Pension  (1-7, 7 in favor)"
//lab var eco_environment "(1-4, 4 in favor)"
//lab var eco_health "Whether the state should provide health services  (1, 7 in favor). "
//lab var eco_necessity "(1-4, 4 in favor)"
//lab var eco_wellbeing "Whether the state should guarantee basic wellbeing  (1, 7 in favor). "
//lab var eco_companies "Whether the state should own companies  (1, 5). "
//lab var eco_services "Whether the state should  control public services  (1, 5)."
//lab var eco_private "Whether the state should privatize state industries  (1 in favor, 5 against). "
//lab var eco_natural ""
lab var eco_tax "Whether legislator prefers direct or indirect taxes (1=direct, 2=indirect, 3=no more tax)"
//lab var val_religious "Degree of religiosity and secularity in public policies (1 Christian, 5 secular). "


}
*****************************************************************
* Keep Variables
***************************************************************** 
{ 
	keep  wave eco_regulated education female age eco_prices eco_education_p eco_education_s  eco_education_u eco_housing eco_employment eco_pensions eco_tax nestu partido legis ID1 ID2  religious rel_catholic rel_other val_abortion rel_evangelical
	

}

*****************************************************************
* Save
***************************************************************** 
save "ElSalvador_2009_2011.dta", replace
}



*****************************************************************
* Append
***************************************************************** 
{
append using "ElSalvador_2000_2003.dta"
append using "ElSalvador_2003_2006.dta"
append using "ElSalvador_2006_2009.dta"
drop pais
gen pais = "El Salvador"
save "ElSalvador_2000_2011.dta", replace
*****************************************************************
}

